object Form1: TForm1 Left = 177 Top = 102 Width = 435 Height = 234 Caption = 'T-Rex Demo Program' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] PixelsPerInch = 96 TextHeight = 13 object Bevel1: TBevel Left = 24 Top = 8 Width = 377 Height = 101 end object Bevel2: TBevel Left = 24 Top = 148 Width = 377 Height = 53 end object Label2: TLabel Left = 32 Top = 152 Width = 361 Height = 25 Alignment = taCenter AutoSize = False WordWrap = True end object Label1: TLabel Left = 32 Top = 12 Width = 361 Height = 41 AutoSize = False Caption = 'This demo program illustrates one use of the T-Rex component. It' + ' scans a text file that you specify and reports on the commonest' + ' ten words in the file. A "word" is anything that contains only ' + 'letters, hyphens and apostrophes.' WordWrap = True end object Label3: TLabel Left = 32 Top = 56 Width = 361 Height = 45 AutoSize = False Caption = 'This demo uses the OnToken event. We recommend that you choose e' + 'ither the OnToken event or the OnMatch event, but that you don'#39't' + ' try to use both in the same pass over the same file.' WordWrap = True end object Gauge1: TGauge Left = 32 Top = 180 Width = 361 Height = 16 Progress = 0 end object Button1: TButton Left = 24 Top = 116 Width = 105 Height = 25 Caption = 'Specify &Input File' TabOrder = 0 OnClick = Button1Click end object Button2: TButton Left = 160 Top = 116 Width = 105 Height = 25 Caption = '&Scan' Enabled = False TabOrder = 1 OnClick = Button2Click end object BitBtn1: TBitBtn Left = 296 Top = 116 Width = 105 Height = 25 TabOrder = 2 Kind = bkClose end object Rex1: TRex InputSeparator = '[ .,?!&()/:;=+-]+' LineSeparator = '\n' OnBOF = Rex1BOF OnEOF = Rex1EOF BeforeLineMatch = Rex1BeforeLineMatch OnToken = Rex1Token Left = 8 end object OpenDialog1: TOpenDialog DefaultExt = 'pas' Filter = 'Pascal source (*.pas)|*.pas|Text files (*.txt)|*.txt|All files (' + '*.*)|*.*' Options = [ofPathMustExist, ofFileMustExist] Left = 48 end end